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8 14 
Special service routines 16-Se 
14-Se 


0 ZTITLE "Special service routines’ 
0 MODULE MOMSUBS ( 
LANGUAGE (BLISS32) 
ADDRESSING_MODE (NONEXTERNAL=GENERAL), 
EXTERNAL=GENERAL) , 


ADDRESSING [ODE ( 
IDENT = 'V04-000 


BEGIN 


' 
Lee REAR ARE REEEAE AEE REAR AEEAAA AA AEEARRATETAEERARR EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

® 

® 

ad 

* 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. ‘ 
! ® 
i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE  * 
® 

® 

® 

® 

® 

* 

® 

® 


E C 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


NOUS WN 0 OD NAUE WN OO ODNAMUE WN OO ONOAUE WN OOONIAUES WN SH OUDOANOUS WH 
a a kk kkk kd kk a ks I IQOOOOOOOO 
= 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

5 

§ § '® CORPORATION. 

2 002 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

§ 009 > SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

; 003 | adda naeasiiramnensiaesunbabiimeamiuaenéiadeimammiaeenéémntes 
' 

3 003 

3 003 e+ 

3 sit : FACILITY: DECnet-VAX Network Maintenance Operations Module (MOM) 

3 003 i ABSTRACT: 

3 Oo8 This module contains utility routines used for maintenance operations. 

4 9040 i ENVIRONMENT: VAX/VMS Operating System 

4 004 i AUTHOR: Kathy Perko 

4 004 ‘ 

7 bee CREATION DATE: 6-Jan-1983 

4 0046 1 ! MODIFIED BY: 

4 0047 : v03-005 mKP0005 Kathy Perko 26-June-1984 

4 0048 ! If sending a BOOT message for a LOAD command, set the bit 

¢ seh that tells the target to perform the load from this host. 

5 boat i V03-004 MKP0004 . Koehy Perko 12-April-1984 | 

5 4 , Change padding on SERVICE PASSWORD to zero instead of high 

3 $084 ihe 

5 0055 1! v03-003 MKP0003 kathy Perko 20-Jan-1984 

5 4) : Add SERVICE NODE VERSION parameter. 

5 005 : Pad the service password in the boot message with the 


2 V4.0-74 P 
ECMOM, SRCIMOMSUBS.B32: 179° (1 
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S$ Special i ti 16-56 $ep-1984 VAX-11 Bliss-32_V 2 
vous sate Rasp lat tag oom; 308-1 38e 93: 6: rh DISKSVMSMASTER: chon. OS RCIMOMSUBS. B32; fag (1) 
; : 0038 high byte. 

60 0060 v03-002 exrovge noes Perko 23-May-1983 
61 0061 hen building the MOP Parameter Load with Treneter Address 


rl e, mask out the area number if the target isn't on the 
NI (this is a temporary way of identifying Phase III targets). 


v03-001 MKPO001 Kathy Perko 11-May-1983 
Fix length of password put into MOP boot message. 


: 6 006 
>: 66 


o 
> 
o 
tt a a es 
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D 14 
MOMSUB Special service routines 16-Sep-1984 02:08:44 VAX-11 Bliss-32 V 3 
V00=000 Declarations 14-Sep Ort 984 93: 2:44:37 DISKSVMSMASTER: CMO: OSRCIMOMSUBS. B32; 39 * 23 
; 7 0070 1 XSBTTL 'Declarations" | 
: if 0071 1 
wip Bote , f | 
3 74 75 1°! TABLE OF CONTENTS: 
; £5 0074 1! 
; ug 0075 1 
: 7 0076 1 FORWARD ROUTINE | 
; we 0077 1 mom$getsrvdata : NOVALUE, 
; 0078 1 momsget . circuit type: NOVALUE, 
; 0079 1 mom$get_node_id™ NOVALUE, 
3; (6B) 0080 1 mom$getsrvtimer : NOVALUE, 
; B¢ Boe) 1 monsget.. voldb_data 
.. © 00 ¢ 1 on .ge et acire sSearche “aoe 1 apne 
; 0083 1 om$bldmopr 
; 8 0084 1 nent daasoent : NOVALUE. 
; & 0085 1 mom$bl dmoppLt : NOVALUE; 
; of 0086 1 
; Bw 0087 1! 
; 689 0088 1 ! INCLUDE FILES: 
>; 90 0089 1! 
; 0090 1 
; Fe 0091 1 LIBRARY TS ag: MOMLIB.L32'; 
: 98 0092 1 LIBRARY 'SHRLIBS: NMALTBRY. A352": 
: | «94 0093 1 LIBRARY + SHR IB$:N 
H 95 0094 1 LIBRARY "SYSSLIBRARY: STARLET. L32*s 
; © 0095 1 
; o 0096 1! 
; 0097 1 ! OWN STORAGE: 
; WW 0098 1! 
: 100 0099 1 
: 101 0100 1 OWN 
5 4 344 : mom$t_p2buffer : VECTOR Cmom$k_p2_buf_len, BYTE]; ! P2 Q10 buffer 
> 104 0103 1 BIND 
: Hy 64 Bin : mom$q_p2_buf_dsc = UPLIT (mom$k_p2_buf_len, mom$t_p2buffer) : VECTOR (2); 
3 107 0106 1! 
; 108 0107 1 ! EXTERNAL REFERENCES: 
: 109 0108 1! 
3; 110 0109 1 : ‘ 
3 1) gig ‘ $mom_externals; ! Define external service data 
: 118 Bits 1 EXTERNAL 
3; 61146 bi 1 mom$npa_load, 
3; 6115 114 «1 mom$npa_ cirloop, 
s 136 git? 1 mom$npa_trigger; 
sO 116 1 
; #4118 0117 1 EXTERNAL ROUTINE 
3 138 0118 #1 mee reply, 
: 120 AB 1 mom$build_p2, 
: is 139 1 mom$error, 
- ; 0121 1 mom$debug_ms 
: le 8156 1 mom$debug_tx 
: 124 123 «1 mom$netacp_ gio: 


VO4=000 


UN — SO DONAUESWN —$OOONOUSWWN—"OOONC AEWNH ODO 
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244 VAX-11 Bliss-32 
mom$getsrvdata Build the service data base :37 DISKSVMS 
ZSBITL ‘mom$getsrvdata Build the service data base' 


GLOBAL ROUTINE mom$getsrvdata : NOVALUE 
! 


'o4 
} FUNCTIONAL DESCRIPTION: 


_ 
od 


This routine gets the information needed for a maintenance operation 
from the target node's volatile data base entry. 


i 
i ROUTINE VALUE: 

| COMPLETION CODES: 
i 

a 


bt 8 


folelelelelelelelo} 


Signal errors. 


len, 
pe but “dsc : VECTOR (2) 
qid_p4_buffer : BBLOCK (mom$k_qio_buf_lenj; 


IF omonaee.tunet ton NEQ nma$c_fnc_tes THEN 
BEG! 


i Get the maintenance parameters from NETACPs node database entry for the 
target node. 


p4_buf_dsc 0] = mom$k_qio_buf_len; 
p4_buf_dsc (1) = qio_p%_buf fer; 


mom$get_voldb_data (nfb$c_db_ndi, p4_buf_dsc); 


i Build the service data table. This table contains the values of longword 
parameters, and pointers to string parameters. 


datptr = qio_p4_buffer; 


! Some parameters have already been extracted from the NICE or MOP message 
! and inserted in the Service Data table. These take precedence over 

! what's in the volatile database. So, move the rest of the service 

! parameters from the Q10s P4 buffer into Service Data Table. 

! The field IDs were put into the NFB in the order they are in in the 

' Service Data Table. Extract the parameter values from the P4 buffer 

in the same order. 

I 


NCR ise 0 TO svd$c_entry_count DO 

If the parameter value is obtained from the remote node (NDI) 
database and it hasn't an ready been set by the NICE or MOP message, 
! put it into the Service Data Table. 


IF .mom$ab_service_data [.i, svd$b_nfb database] 
EQC nfB$c_db_ndi THEN 


ONIN SSSI PAP AAA AAD MIU BB BBB BE BE WAIIIIIinorononornory 
ee . | 
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a 
— 


i 

d 

BEG 

IF .mom$ab_service_data C.i, svd$b_nice_type] NEQ 
svdSk_string THEN 


186 
4 


uw 


f the parameter isn't a string and a value was returned 
or it, move its value into the Service Data Table. 
I 


-datptr GTR -1 AND 
NOT .mom$ab_service_data [.i, pudtv_meg_peren) THEN 
mom$ab_service_data C.i, svd$l_param] = ..datptr; 
ptr = .datptr +°4; 


zo 
or 


ELSE 


If the parameter is a string, and a value was returned for 
it, move the string into Service Data Table. 


—Y D-<-—---—- MQ 


len = Vy vente 
ng_len GTR 0 AND 
lg ateravee, cate C.i, svd$v_msg_param] THEN 


em 
7 
°°. «te. 
wmwovs 
mmo 
+ 
se 


mom$ab_service_data C.i, svd$b_string_len] = .string_len; 
CHSMOVE (str iig.ten 

(.datptr + 2), 

mom$ab_service_data C.i, svd$t_string]); 


pepe ewan lolelole lwo lolololololelolololalola) 
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END; 
focpte = .string_len + .datptr + 2; 


END; 
END; 


Get the Host node id for Loads and dumps. 


IF .mom$gb_function EQL nma$c_fnc_loa OR 
-mom$gb_function EQL nma$c_fnc_dum THEN 
mom$get_node_id (svd$gk_ptno_Tho, 

ne svd$gk_pcno_$hna); 


are different from point-to-point or multipoint at many points. for 


' 
Determine if service circuit is an NI circuit. NI service operations 
autoservice this is determined elsewhere. 


DO NONEUN LO OHVA AR WV OOR EA RAO DO MRA OTOL Ooo 


if NOT znonSgl service. flags Cmom$v_autoservice] THEN 
mom$get_circuit_type (); 
ND; ! End of mom$getsrvdata 
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$ Special service routines 16-Sep-1984 02:08:44 VAX-11 Bliss-32 V4.0-74 
y042000 mom$getsrvdata Build the service data base 12280 0-138e 95:08:45 DL SKSVMEMASTERSCMOM. SRCIMOMSUBS.B32; 1°" (3 
I 


-PSECT 
00000068 00000 P.AAA: .LONG 


-TITLE MOMSUBS Special service routines 
- IDENT 


\V04-000\ 
SPLITS,NOWRT ,NOEXE ,2 
104 


momsips «Special service routines ace nase YOrReBrTORe 99:08:44 


00000000" 00004 -ADDRESS MOMST_P2BUFFER 


»PSECT 


EXTRN 


00000 MOM$T_P2BUFFER: 
-BLKB 


MOMS$Q_P2_BUF_DSC= _P.AAA 
EXTRN MOM 


SOWNS ,NOEXE ,2 


104 


ACPQI0_BUF 


MONS CG- [ACPQIO" BUF i 
MOMSAB_C mOnsAB | .OOP_C1B 


MOMSAB-TRIGGER_C 
MOMSAB 


=MOP_XM MIT’ aur 
MOM$GQ_MOP_XMIT "BUF _DSC 


MOMSAB_MO 


=RCV_BuU 
MOM$GQ- “ROP-ACV=BUF 
AB" MOP_MSG Momsco -MOP_MSG_DSC 


MOMSAB~ 
MOMSGW~EVT mitt: 
MOMSGB P 


SVD$GK—PCNO~SHHW 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: (MOM. SRC JMOMSUBS .B832; 429 


“Re 
“RCV “AG” LEN 
cock BUF _DSC 
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Ss Special service routines 16-Se 
you=000 mon$getsrvdate Build the service data base 14-Se 


07FC 00000 
5A 000000006 00 9E 00002 
59 weaee **3 00 9E 00009 
35 FOF CE 9E 00010 
1 6A 91 00015 
03 12 00018 
osc 31 Beta 
F8 AD 0200 8F 3C 0001D 1$: 
FC 8 AD 6E 9E 44 
F8 AD 9F 000 
8s DD 0002A 
00000000v 00 02 FB B08 § 
4 6— 9E 000 
6 01 CE 000 
46 11 iH 
50 56 00000089 8F C5 000 8 2s: 
02 FC A940 91 0004 
37 12 00048 
03 FF A940 9 Ree 
15 1 4F 
67 D $31 
Bf 19 000 : 
07 6940 50 One 
02 aes F bee 
3 8 tO O00! 
5 4 ¢ +94 3$ 
8 11 
58 6 ; 28 4 
11 6 
oc 6940 3 ° 
8) nee 
02 A940 2A 2 7 


bad 


Be 93:2 


»PSECT 
- ENTRY 


a3 


VAX-11 Bliss-32 Pe reaet 
DISKSVMSMASTER: CMOM. SRC JMOMSUBS .832; 1 


SBLD REPLY, MOMSBUILD_P2 
, MOMSDEBUG MSG 
MOMSDEBUG_TXT, MOMSNETACP_Q10 


SCODES ,NOWRT,2 

MOMSGETSRVDATA, Save R2,R3,R4,.R5,R6,R7,R8,- 
MOMSGB_FUNCTION, R10 

MOMSAB-SERVICE_DATA+7, R9 

=520(SP), 

MOMSGB_FUNCTION, #18 


MOMSNPA_ 
MOMSNPA~TRIGG 
MOM 


8$ 

#512, P4 BUF _DSC 
Q10 P4_BOFFER, P4_BUF_DSC+4 
P4_BUF DSC 


#2, MOMSGET_VOLDB_DATA 
Q10_P4 BUFFER, DATPTR 


#137, I, RO 
MOMSAB_SERVICE_DATA+3CROI, #2 
MOMSAB_SERVICE_DATA+6LROJ, #3 


lie 

p SERVICE _DATA+7CROJ, 3$ 
MOMSAB_SERVICE DATA+9(RO] 
(DATPTR), a(SP3+ 


SE 
#4, DATPTR 
CDATPTRD , STRING_LEN 
Fi MOMSAB_SERVICE_DATA+7(RO] 


0 5$ 
STRING_LEN, MOMSAB~SERVICE_DATA+8CROJ 
STRING-LEN, 2(DATPTR), = 


Page 7 
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] 
s Special service routines 15-50 $ep-1984 VAX-11 Bliss-32 V 
yoe-008 > mon$getsrvdate Build the service data base ~3ep-1984 95:08 3 DISKSVMSMASTER: cmon” OSRCSMOMSUBS. B32; ? o 35 vO 
MOMSAB_SERVICE_ DATA+9C[RO} 
57 oe A748 4 44 C 5$ MOVAB OCDATPTRO cara IRG REM}. DATPTR 0209 
B2 28 000090006 8F F3 00081 6$ AOBLEQ #SvD$C -fN TRY gg 0172 
5 gA 9A 00089 MOVZBL MOM UNCTION RO | 0216 
OF 9 91 0008C CMPB RO, fis’ 
5 13 0008F BEQL 7$ 
10 9 + 1 CMPB RO, #16 
12 00 BNEQ 8$ 
000000006 : DD 00096 7$: PUSHL #SVD$GK_PCNO_SHNA 
90000000¥ 09 00000000G_ 8F i 49 3 PUSHL ° VO$GK- car ae 
000000006 E OAD 8$: BLBS 4 ser SERVT ches 9$ 7 
00000000v $6 FB 09086 CALLS mon MOMSGET_CIRCUIT_fYPE $353 
04 00087 9$ RET 229 


; Routine Size: 184 bytes, Routine Base: $CODES + 0000 
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Ss Special service routines 1b-Se -1984 02:08:44 VAX-11 Bliss-32 V4.0-74 Pa o 
y0e=008 mom t_circult. type See if Circuit is on Eth 132308-1 382 95:08: 7 DISKSVMSMASTER: (MOM. SRC JMOMSUBS .832; 1 - (4) 


1 SSBTTL snoasaet circuit. type See if Circuit is on Ethernet’ 
GLOBAL ROUTINE mom$get_circuit_type : NOVALUE = 


MO! 
vO: 


lee 
! FUNCTIONAL DESCRIPTION: 
This routine looks the service circuit up in the volatile database 


to determine if it's an NI clrewit or not. 


ROUTINE VALUE: 
COMPLETION CODES: 


Signal errors. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 !<< 
1 
BEGIN 
Snfbdsc (mom_q_cirtyp_nfbdsc, show, , cri ; 
nam, ! Search key one = circuit name, oper: = eql 


oe ' Null search key two. 
ste ! Circuit type 


vuvv 


~N 
-—o 
SOOSOSOCOSOOSSOSOOOCOSOSSOOOSCOOSCOOOOOOOOOOOOOOoOO 


LOCAL 
en, 


megenee, 
pedsc: VECTOR (2), 
oot detail, 


—OOONOUEWN—O0OMW VFWN—O Mw 


WO OBNOUES WN 0 OONOAUFS WAR —OW0 


oc wi 


—s 


6 status; 
6 
64 : 
65 ! If there isn't any service circuit for the node, return an error to NCP. 
$6 (There is always a service circuit for autoservice functions). 
68 len = .mom$ab_service_data [svd$gk_pcno_sli, svd$b_string_len]; 

9 IF “ace cet 0 THEN 

mom$ab_msgblock (msb$l_flags] = msb$m_det_fid; 

7 mom$ab_msgblock [msb$b_code] _ = nma$c_sts_pms; 

7 0 mom$ab_msgblock [msb$w_detail] = nmagc_pcnd_sli; 

74 1 mom$bld_reply (mom$ab_msgblock, msgsize); 

ie : $signal-msg (mom$ab_nice_xmit_buf, .msgsize); 

7 4 2! ‘ 

78 5 ! Get the circuit type from NETACPs CRI database to determine if it's 
44 } an NI (Ethernet) circuit. 
81 8 mom$build_p2 (.Len, 

g 4 mom$ab_service_data [svd$gk_pcno_sli, svd$t_string], 

5 


p2dsc) 
-9¢ 
dsc, 


SomSgaq_acpaio_buf_dsc); 


p2_buf_dsc 


mon$g_ : 
status = mom$netacp_gio (m irtyp_nfbdsc, 
Pp 


wn 


w 


IF NOT .status THEN 


-1984 02:08 
B=1986 $3346 
Sees old reply (mom$ab_msgblock ize) 
a ck, msgsize); 
Ssignalznsg taondeb-nice-xe t.buf.--msgsize); 


IF - {zmon$gq_acpqio_buf_dsc (13) EQL mma$c_cirty_ni THEN 


mom$gl_service_flags Cmom$v_ni_circ] = true; 
94 err. etail = OF ° is 


! if it's an NI cireyit. and the NICE command was LOAD VIA, TRIGGER VIA, 

t must also specify a physical address. If it's LOOP CIRCUIT it must 
: spec ity a physicel address or a node This is because the circuit 
d is not sufficient to uniquely identify a target on the NI. 


K 14 
vit Special service routines 16-Se 
mom$get_circuit.type See if Circuit is on Eth 14-Se 
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744 VAX-11 Bliss-32 V4.0-74 Pa 10 
3 ISKSVM ASTERSCHOM-SRCIMOMSUBS .832;1 = (4) v0 


if NOT .mom$gl_service_flags Cmom$v_autoservice] AND 
w 3 -mom$ab_service data Csvd$gk_pcno_pha, svd$v_msg_param] THEN 


IN 
IF -poasge entity code EQL mom$c_circuit THEN 
IF .mom$gb_ function NEQ ate fSvds3t<p AND 


QERRENWLSLSLE 


RIA DT BB I BS BB BS ENNIO 


NOT .mom$ab_service_data ([svd$gk_pcno_add, svd$v_msg_param] AND 
NOT .mom$ab_service_data [svd$gk_pcno_nna, svd$v_msg_param] THEN 
err_detail = nma$c_pcno_pha 


IF NOT .mom$ab_service_data Csvd$gk_pcno_lpn, svd$v_msg_param] AND 
NOT .mom$ab_service_data [svd$gk_pcno_$lna, svd$V_msg_param] AND 
NOT .mom$ab_service_data ([svd$gk_pcno_lan, svd$v_msg_param]_ AND 
NOT .mom$ab_service_data [svd$gk_pcno_S$ilnn, svd$v_msg_param] THEN 


0 
err_detail = nma$c_pcno_pha; 


*s an NI circuit, and the NICE command was LOAD NODE or 
R NODE with no PHYSICAL ADDRESS specified, there must 


it 
I1GGE 
a hardware address in the volatile database. 


_— 8D 


mom$ab_service_data Csvd$gk_pcno_hwa, svdSb_string len] 
EGC 0 THEN 
err_detail = nma$c_pcno_hwa; : 


END; 
IF .err_detail NEQ 0 THEN 
BEGIN 


mom$ab_msgblock pepei flags) msb$m_det_fld; 
mom$ab_msgblock [msb$b_code nma$c_sts pms: 
mom$ab_msgblock Cmsb$w_detail) = .err_detail; 
ponsbld_reply (mom$ab_msgblock, msgsize); 

$s ignal msg mom$ab_nice_xmit_buf, .msgsize); 
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! of mom$get_circuit_type 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


14 
Sorsiat STUlSt COut!Meg se carcute 18 on Eth ECRSBSEE QBEQR:G) — YMCHTABALSTEEZ SASL 4Gpamsuns.os2:%0%" ol 
00000006" Ooouc ©” *** :ADDREss“U.1 


-PSECT SOWNS,NOEXE,2 


MO! 
vO. 


22 00068 ;_NFB $ 

“1: BYTE 34 : : 

0 00069 YTE : : 

4 0006A "BYTE 4 : : 

0 00068 “BYTE 0 : ; 

04020041 0 $f LONG 67240001 ; ; 

000 0091 00 “LONG 1 : : 

0 74 -BYT 0 : : 

00 00075 “BYTE ( : ; 

9000 007 WORD : : 

0401002 007 “LONG 67174432 : : 

0000000 0007¢ °LO 0 : ; 

00080 BLKB 4 : 

U.2= P.AAB ; 

.PSECT $CODE$,NOWRT,2 ; 

00FC 00000 ENTRY MOMSGET_CIRCUIT_TYPE, Save R2,R3,R4,R5,R6,- ; 0231 : 

57 000000006 00 9€ 00002 MOVAB MOMSGL_SERVICE_FLAGS, R7 : : 
36 000000006 00 9€ 00009 MOVAB LIBS$SIGNAL : F 
55 000000006 00 9€ 00010 MOVAB MOMSAB_NICE_XMIT_BUF, RS : ; 
54 000000006 00 9€ 00017 MOVAB MOMSBLD REPLY, R& : : 
53 000000006 00 9€ 00018 MOV MOM$AB_MSGBLOCK, R3 : F 
3 10 ¢2 9002 SUBL : ; 
52 00000000" 00 9A 00028 MOVZBL <<MOMSAB, SERVICE _DATA*<SVDSGK_PCNO_SL1*137>~; 0265 : 
22 12 0002F BNEQ 1 > 0266 : 

63 02 00 00031 MOVL He MOMSAB_MSGBLOCK : 0268 : 
06 As 1D 8€ 000 #25, MOMSAB_MSGBLOCK+4 : 0269 : 
08 A’ 6E 8F 9B 00038 MOVZBW #110, MOMSAB_MSGBLOCK+8 : 0270 : 
04 AE 9F 0003D USHAB MSGSIZE > 0271 ; 

53 DD 0004 PUSHL : F 

64 02 FB 0004 CALLS #2, MOMSBLD_REPLY : ; 
04 AE DD 0004 PUSHL MSGSIZE : 0272 ; 

55 DD 00048 PUSHL : : 

02070000 er DD 4A PUSHL  #34013184 : ; 

5 3 FB 20 CALLS #3, LIBSSIGNAL : ; 
08 Ar 9F 00053 1$: PUSHAB + 0279 ; 
00000000 Q 9F 00056 PUSHAB MOM$Q_P2_BUF_DSC ; : 

E 04 0005C CLRL = (SP) : : 

7E oi CE 0005E MNEGL #1, -(SP) : 0280 : 
00000000" 00 9F 00061 PUSHAB <<HOMSAB_SERVICE_DATA*<SVDSGK_PCNO_SLI*137>~i 0279 ; 

52 DD 0067 PUSHL LEN : 3 

000000006 00 06 FB 00 $9 CALLS #6, MOMSBUILD_P2 ; : 
000000006 OF 00 0 PUSHAB $GQ_ACPQI0~BUF_DSC + 0282 : 

4 AE OF 1 PUSHAB P : : 

0 ar OF 07 PUSHAB P2DSC : ; 

00000000" 00 9F 0007¢ PUSHAB U. : ; 


Routine Base: 


e routines 
See if Circuit is on Et 


000000006 99 


04 


64 
04 


02070000 
i 000000006 
06 


67 


79 
72 00000000* 
02 000000006 
12 000000006 
07 00000000* 
1€ 00000000* 
26 00000000* 
1F 00000000* 
18 00000000* 
11 00000000* 
50 

00000000* 


50 72 


04 


64 
04 


02070000 
66 
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E9 00007 
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9g: 99: $3 VAX-11 Bliss-32_ V4.0-7 page 12 


DISKSVMSMASTER:CMOM. sre MOMSUBS .B32; 1 
#4, MOMSNETACP_QI0 
STATUS 1 7 
M GS1zE 
#2, MOMSBLD_REPLY 
6s1ZE 


. $1Z 
#34013184 
#3, LIBSSIGNA 


8 
B NAL 
MOM$GQ_ACPQIO_BUF _DSC+4, RO 
(KO), #6 


#2, MOMSGL_SERVICE_FLAGS 
ERR_D 


L~ 
ROASGL SERVICE_FLAGS, 8$ 
AB_SERVITE _DATA+<SVD$GK _PCNO_PHA®137>=; 


>+7>, 8$7 

mOMSéB. ENTITY_CODE, #2 
MOMSGB_FUNCTION, #18 
<<MOMSAB_SERVICE_DATA*<SVDSGK_PCNO_ADD#*137>~; 
<<MCASAB_ SERVICE. DATA®<SVDSGK_PCNO_NNA®137>=! 
<<MORSAR. SERVICE_DATA+<SVDSGK_PCNO_LPN®137>=3 
<<MORSAB_ SERVICE_DATA*<SVD$GK_PCNO_SLNA®- 


BeBe Se Se Se Ge Ge Se Ge Ge Ge Fe Ge Fe Se Se Fe Se Fe Ge Se Se 


137>> 
cor AB SERVICE _DATA+<SVDSGK_PCNO_ LAN®137>~3 


S<HORSAB_ SERVICE. DATA*+<SVD$GK_PCNO_SLNN*- 
#10. ERR_DETAIL 
— SERVICE _DATA+<SVDSGK_PCNO_ HWA*137>~; 


7$ 
#114, ERR DETAIL 
_DETAIC 


MSGBLOCK 
4 §, ates _MSGBLOCK+4 
ERR DETA IL, “MOMSAB_MSGBLOCK+8 


#2, MOMSBLD_REPLY 
MSGSIZE 


6 
#34013184 
#3, LIBSSIGNAL 


33 
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Special service routines 16-Sep-1984 02:08:44 V4.0-74 Pa 
nontge 2 S : 9 4 rH a CMO SRC SMOMSUBS.832:1 - (33 


t.node_id Get the name of the host node “Sep-1984 12:44: 


ZSBTTL ,nonbaget node. id Get the name of the host node’ 
GLOBAL ROUTINE mom$get_node_id (node_add_svd, 
node_name_svd, 
NI_hwa_svd) : NOVALUE = 


* 
35 
33 


Ww 
oO 


- 


+4 

FUNCTIONAL DESCRIPTION: 
This routine gets the node name and node address needed for a 
load, dump, or loop circuit operation. It uses the SVD indices 
to determine what node name or address is already known (from 
the NICE command or the volatile database), and gets the node 
name, address, and NI hardware address for that node. I! 
node name or address is already known, the executor node is used. 


FORMAL PARAMETERS: 
NODE _ADD_SVD = Service Data (SVD) table index of entry for node 


address. 
NODE_NAME_SVD = Service Data (SVD) table index of entry for node 


name, 
N1I_HWA_SVD = Service Data (SVD) table indes of NI hardware 
address for node. Set up only for loop functions. 
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ROUTINE VALUE: 
COMPLETION CODES: 
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Pp 
nfbdsc: VECTOR; 
LOCAL 


36 

36 Signal errors. 

36 

36 == 

36 

$e BEGIN 
P 037 Snfbdsc(nfbdsc, show, , ndi 
P 037 a ! Search key 1 = node address, oper! = eql 
P 037 nfb$c_wildcard, | Search key 2 = wildcard, oper2 = eql 
P 037 ,tad ! Node address 
P 037 nna ! Node name 

; 37 ehwad; ! NI hardware address 
7 
37 
37 
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pe-buffer: BBLOCK Cmom$k_p2_buf_len], 
nfB: REF BBL . 

p4_dsc: VECTOR 1 

p-bufter: BBLOCK i, 


Pength; 


tus, 
p2_dsc: VECTOR $4. 
pée_buf_dsc: VECTOR r 
K 
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15 
ee be service routines ! -Sep-1984 4 96: 2:08:44 VAX-11 Bliss-32 V4.0-7 rd 1 
get_node_id Get the name of the host node 12-Sep-1986 2:44:37 DISKSVMSMASTER: LMOM. SRC JMOMSUBS .832; 479 (5 


3 <3 8 4 } If the node name was supplied in the NICE command, use it to get the address. 

3 rh 0 2 IF -poased.. service_data [.node_name_svd, svd$v_msg_param] THEN 

: 404 400 search_len = .mom$ab_service_data [.node_name_svd, svd$b_string_len]; 

; 405 0401 search value = mom$ab_servicé_data {.nodé_name_svd, svd$t_stringJ; 

: 406 Bene search_key = nfb$c_ndi_nna; 

: 407 040 | 

; 408 0404 ELSE 

; 409 0405 BEGIN | 

; 410 0406 search_key = nfb$c_ndi_tad; 

: oi rt search len = 0; 

; 413 0409 If the node estrers was of tee in the NICE command, use it to get 

: 414 0410 i the name. Otherwise ai*t e executor's name and address (this works 

: 415 Oat) 3 i because the SVDSL_PARAM is initialized to 0). 

3: 417 0613 3 soafehiwatue = ,mom$ab_service_data [.node_add_svd, svd$l_param]; 

; 418 0414 2 END; 

3; 419 0415 2! 

: 420 0416 2 ! Get the name and address of the node from the volatile data base. 

3 $s) ed F4 2 ; If it is not found then report an error in the node identification parameter. 

3 £58 0419 $ p2_ buf_dsc [0] = mom$k_p2_buf_len; 

: 424 0420 § pe_buf_dsc [1] = p2_buffer; 

: 425 0421 mom$build_p2 (.search_len, 

; 426 0422 2 search -value, 

: 427 0423 2 

; 428 pase 2 p2 2. buf dsc, p2_dsc); 

; 4 0425 2 nfb = .nfbdse [1]; 

: 430 0426 2 nfb Cnfb$l -$'$5. key] = .search ukey; 

> 431 0427 2 p4_dsc (0)"= 327 

; 432 0428 2 p4_dsc [1] = p4 butters 

: 433 4 2 IF mom$netacp_qio ( nfbdsc, 

: 434 0430 2 dsc, 

> 435 0431 2 

: 436 043¢ 2 p4_dsc) THEN 

3 437 0433 3 BEGIN | 

: 438 0434 3 ptr = p4_buffer; 

: 439 0435 3 

: 440 0436 3 i If the node name and/or address were not pplied in the NICE command, 

> 441 0437 3 ' take the ones returned from the volatile Rotabese, and put them into 

3 rr bese the service data. 

3 4446 0440 iF NOT .mom$ab_service_data [.node_add_svd, svd$v -™Sg_ gt 3 THEN | 

3 6445 0441 — service data C. node add_svd, svd$l param) = ..ptr 

4 446 044 tr = Pp + 4; 

3 447 044 sen th = ar ptr)<0, 16>; 

: rrr | ore) ? OT smonSab_ service.data C.node_name_svd, svd$v_msg_param] THEN | 

; 450 0446 4 CHEMOVE (.length, (.ptr + 2), 

3; 451 0447 4 mom$ab_Service data *L.node _name_svd, svd$t -string]); 

: $26 rt 4 mom$ab_ service_data [.node_name_svd, svd$b_string_len] = .length; 

; $28 rt ptr = .ptr+2+¢ . length; | 

: 456 0452 ! If it's a LOOP CIRCUIT function, also return the NI hardware address. | 
| 
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al service routines 16-Sep-1984 02:08:44 VAX=11 Bliss-32 V4.0-74 P 
et_node_id Get the name of the host node 14-Sep-19 4 95:28: 7 DI SKSVMSMASTERSCMOM, SRCSMOMSUBS.B32: 179° 33 
For LOAD, TRIGGER, and DUMP functions, the hardware address is obtained 
, with the rest of the service data. 
if -mom$qb_funct ion EQL nma$c_fnc_tes THEN 
4 BEGI 
& songs = .(.ptr)<0,16>; 
4 CHSMOVE (: length, (.ptr + 2), | 
4 mom$ab_service data C.ni_hwa_svd, svd$t_string]); 
4 sonSab_service_date C.ni_hwa_svd, svdSb_string_lén] = .length; 
3 . Se | 
; mom$error (nma$c_sts_ide, nma$c_ent_nod); 
1 END; ! End of mom$get_node_id 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00000024 00010 P.AAC: .LONG 36 : 
00000000" 00014 “ADDRESS U.3 ; | 
«PSECT SOWNS,NOEXE,2 
22 00084 -4F8 
U.5: «BYTE 34 : 
00 00085 -BYTE 0 3 
02 00086 -BYTE 2 : 
00 00087 OYTE G : 
02010012 00088 «LONG 33619986 : 
00000001 0008C -LONG 1 3 
00 00090 -BYTE 0 : 
00 00091 -BYTE 0 : 
0000 00092 . WORD 9 3 
02010010 00094 - LONG 3619984 : 
02020043 00098 LONG 33685571 ; 
02020057 0009C -LONG 33685591 ; 
00000000 000A0 -LONG 0 3 
000A4 -BLKB 4 
U.4= P.AAC 
-PSECT SCODES,NOWRT,2 
03FC 00000 ENTRY MOMSGET_NODE_ID, Save R2,R3,R4,R5,R6,R7,R8,~; 0340 
59 000000096 00 9€ 0000 MOVAB MOMSAB_SERVICE_DATA+9, R9 ; 
5E FF6 fF 9E 0000 MOV 1 O(SP. P ; 
AC 00000089 : if it MULL #1 NODE NAME SVD, _R6_ ; 0398 
34 FE Aus 9 G17 MOVAB MOMSAB_SERVICE_DATA+7CROJ, R4 : 
45 FF AOGG OA O01 MOVZBL MOMSAB_SERVICE_DATA+8(R6), SEARCH_LEN > 9400 
28 59 C1 4 ADDL R Re ‘at VALU : ¥401 
02020043 8F bo 00 8 MOVL  #33685571, SEARCH_KEY ; 9408 
18 002F BRB 2s ; 039 


SS 


3; Routine Size: 243 bytes, Routine Base: SCODES + O1E9 


3 472 0468 1 
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SUB Special service routines 16-Sep-1984 02:08: VAX-11 Bliss-32 V4.0-74 Pa 1 
yoo-008 mom$get_node_id Get the name of the host node 12286871382 95:08:43 DISKSVMSMASTER:CMOM.SRC JMOMSUBS .B32; 1 * (3S 
53 02010010 BF v0 1 1$: MOVL  § #33619984, SEARCH_KEY : 9406 
2 D4 8 CLRL SF H + 040 
50 04 ac 00000089 &F ¢3 A MULL3. #137, RODE_ADD_SvD RO : 0413 
6940 9F 00043 PUSHAB MOMSAB_SERVICE-DATA+9LRO] : 
51 Hi po 4g MOVL a(sP)+ SEARCH” VALUE : 
FO AD 68 &F 9A 00049 2$: MOVZBL #104, P2 SUF DSC + 0419 
F4 OAD 28 «=6AE «O9E (00 4§ MOVAB  P2_BUFFER, P2_BUF_DSC+4 : 0420 
FB AD i 005 PUSHAB Po- > 0421 
FO AD OF 9036 PUSHAB P2-BUF_DSC : 
7E D4 0005 CLRL = = (SP) : 
7E 1 CE 00058 MNEGL #1, =(SP) + 0423 
1 OD 905 PUSHL  SEARCH_VALUE : 042 
: 2 DD 0006 PUSHL SEARCH“L + 0421 
500000006 99 6 FB 006 ALLS #6, MOMS$BUILD_P2 : 
00000000° g D 9006 OVL NFBDSC+4, NFB : 0425 
04 Ad DO 00070 MOVL § SEARCH_KEY, 4(NFB) : 0426 
20 AE 20 D0 00074 MOVL #32, P&_DSC : 0497 
24 AE 6E 9E 00078 MOVAB P4_BUFFER, P4_DSC+4 + 0428 
20 AE 9F 0007C PUSHAB P4~DSC > 0429 
7E 04 0007F CLRL = = (SP) : 
F8 AD OF 60081 PUSHAB P2_DSC : 
00000000' 00 9F 00084 PUSHAB NFBDSC : 
000000006 00 04 FB OOO8A CALLS #4, MOMSNETACP_Q10 : 
3¢ 50 +4 00091 BLBC ~—_—sRO, : 
5 6 E 00094 MOV P4 BUFFER, PTR + 0434 
50 04 AC 00000089 8F C5 00097 MULL3 #137, NODE_ADD SVD, RO : 0440 
06 FE A940 09 £0 000A0 BBS #0, MOMSAB-SERVICE DATA+7CROJ, 3$ : 
6940 SF O00A6 PUSHAB MOMSAB_SERVICE_DATA+9CROJ > 0441 
4 67 DO 000A9 MOVL (PTR), a(SP)+ : 
5 04 co OOOAC 3S: ADDL2 #4, PTR + 044 
58 67 3C OOOAF MOVZWL (PTR), LENGTH : 044 
08 64 £8 90082 L > 0444 
6946 02 A7 58 28 0008 MOVC3 LENGTH, 2(PTR), MOMSAB_SERVICE_DATA+9(R6] =: 0447 
FF A946 23 0 C008B MOVB LENGTH MOMSAB_SERVICE_DATA+8(R6] : 0448 
57 02 A847 9E 699¢9 4$: MOVAB 2(LENGTH)CPTR],; PTR : 0450 
12 000000006 00 91 000C CMPB MOMSGB_FUNCTION, #18 : 0456 
24 12 000CC NEQ g : 
58 67 3C OOOCE MOVZWL (PTR), LENGTH : 0458 
56 0c Ac 00000089 er § 00001 ULL3 #137, NI_HWA SVD, R6 : 0460 
6946 02 A? 8 28 OOODA MOVCS LENGTH, 2(PTR), MOMSAB_SERVICE_DATA*9CR6] : 
FF A946 58 90 O00EO MOVB LENGTH, MOMSAB_SERVICEDATA+8LR6] : 0461 

04 O00E5S RET : 0429 

7E D4 000E6 5$ CLRL = = (SP) > 0465 
7 09 CE O00E8 MNEGL #9, -(SP) : 
000000006 0 2 FB OEB CALLS #2, MOMSERROR : 

04 000F2 6$: RET : 0467 
| 
| 
| 
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MOMS Spee tet service routines 16-Sep-1 984 9: 08:44 VAX-11 Bliss-32 V ey ge 
v04- getsrvtimer Get the service timer 14- =tep- 984 12:44:37 DISK KSVMSMASTER: chon” SRC MOMSUBS .B32; "? (6) | 


~N 
SS 


o— 


| 
: 476 469 1 XSBTTL snoutagtervt taer Get the service timer' 
: 475 470 1 GLOBAL ROUTINE mom$getsrvtimer: NOVALUE = | 
; 476 471 1 
; 477 peg 1 !44 
; 478 Bee 1 ! FUNCTIONAL DESCRIPTION: 
; 479 474 1: 
; 480 0475 1: This routine gets the service timer of the circuit to be used. 
; 481 pore 1 i Since service timer is a line prrenelr the routine must access 
; 48 0477 1! the volatile data base of the Line which corresponds to the 
; 48 0478 1: target node's service circuit. | 
; 484 0479 1: 
> 485 480 1 | FORMAL PARAMETERS: | 
; 486 481 1: 
; 487 48 1 i IMPLICIT INPUTS: 
; 488 0483 1! Service Data Table (MOMSAB_SERVICE_DATA) 
: 489 0484 1! 
; 490 0485 1 | ROUTINE VALUE: 
; 491 0486 1 i COMPLETION CODES: 
; 49 0487 1: 
; 49 0488 1! Signal errors. 
3 0489 1! 
: 495 0490 1 i- 
3 0491 1 
: 497 0492 2 BEGIN | 
; 498 049 § 
; 499 0494 2 LOCAL 
; $00 0495 p4_buf_dsc : VECTOR 
> 501 0496 Qio_p4"buffer : BeLote _ _qio_buf_len], 
: 208 0497 status; 
; 50 0498 
; 504 0499 ! 
: 505 0500 ! Get the maintenance parameters from NETACPs node database entry for the 
; 506 0501 ' target node. 
; 507 £44 ! 
; 508 050 p4_buf_dsc tO} = = mom$k_qio_buf_len; 
; 44 Bebe a buf_dsc qio_p4_buf fer; 
3; «511 0506 status = mom$get_voldb_data (nfb$c_db_pli, p4_buf_dsc); 
3 21g £444 IF -Status THEN 
3; 514 0509 : Returt: the service timer value. If the parameter is not set then 
s 5315 0510 ' the value will be -1. This is a suitable value for infin nity. 
: 218 gals Note that the service timer is defaulted to -1 when MOM is initializing. 
; 518 081 mom$ab_service_data CovdSgk pct i sti, svd$l_param] = .qio_p4_buffer; 
3; «519 0514 END; End of mom$getsrvtimer 


0000 8 ENTRY SGETSRVTIMER, Save nothing ; 0470 

SE Fors E 9E 0000 MOVAB P), SP ; 
F8 AD 020 F 3C 0000 MOVZWL P4 BUF : 0503 
FC OAD 6€ 9€ 00000 MOVAB At 0 P4 “BOFFER, se _BUF _DSC+4 : 9304 
FB AD OOF 11 PUSHAB P4_BUF—D : 0506 

05 DD 00014 PUSHL ; 
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00000000Vv 07 9¢ § S001p CALLS e¢ Pert dien | te VOLDB_DATA 

00000000" 00 020 tary P4 BUFFER, <<MOMSAB_SERVICE_DATA+= 
<SVBSGR_PCLI _$T1#137>>49> 

04 00027 1$: 


; Routine Size: 40 bytes, Routine Base: SCODE$S + 02DC 


: 520 0515 1 


SS 
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ZSBTTL  nonsget voldb data Get data from volatile database’ 
GLOBAL ROUTINE mom$gef_voldb_data (database, p4_buf_dsc) : = 


'o4¢ 
' FUNCTIONAL DESCRIPTION: 
: his routine builds the Q10 buffers to get information about the 


target from the volatile data base specified. It issues the 
Q10 to NETACP. 


Inputs: 
DATABASE = Database id to use when building the NFB and to determine 
which of the parameters in the Service Data Table 


to regyest. 
P4_BUF_DSC = P4 buffer descriptor in which to return information. 


IMPLICIT INPUTS: 
MOMSGB_ENTITY_ 
MOMSGQ_ENTITY_ 

OUTPUTS: 

The P4 buffer described by P4_BUF_DSC contains the maintenance 
information from the specified database. 


* 
35 
Sz 


—— 
NO 


SUSI 


VFA “OOONOUL wr 


ODE 
UF _DSC 


PUPP SISA 


BEGIN 


MAP 
p4_buf_dse : REF VECTOR; 


LOCAL 
status, 
pe_dsc : VECTOR (2), 
ey. 


Length, 

address, 

se Me 

perio r 

nfb : REF BBLOCK 

nfbdsc : vECcTOR (23, 

nfb_buffer : BBLOCK Cmom$k_qio_buf_len], 
msgsize; 


PPP AAAS ES BP BB BE EEE PI 


o o 


1 
Build the NFB, which tells NETACP which information you want returned. 


CHSFILL (0, mom$k_qio_buf_len, nfb_buffer); 
fb = nfb_b6 ; 
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67 

68 

$° n n u $" 

0 5 nfb Cnfb$B_fct] = ngesc_ fc show; 

71 5 nfb (nfb$b_database) = {database; 

a 5 nfb [nfb$b_oper] =n bSc op eql; 

7 56 nfb Cnfb$lisrch2_key] = nfbSc_wildcard; 

. 569 nfb (nfb$b_oper2] = nfb$c_op_éaql; 

7 570 : 

13 571 ! Build the P2 buffer for the specified entity. The P2 buffer identifies 
78 572 ! the specific circuit or node for which information is being requested. 
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yoe-008 aon get_voldb_data Get data from volatile data 12286-1382 95:08:43 DISKSVMSMASTER: CMOM. SRC JMOMSUBS .B32; 1 . 3 ve 
> 579 i : : 
5 , fe SELECTONEU -database OF : 
; ; i: nfb$c_db_ndi): | ; 
3 78 SECECTONEU «mom$gb_entity_code OF : 
; 585 ? ; 
3 5 2 ? nents circuit): : 
; 8 b2 ¢ nfb Cnfb$l_srch_key] = nfb$c_ndi_sli; ; 
: 590 3 i Figure out what the second search key should be. It's : 
3; wy 5 ! either the node address or the hardware address, depending : 
3 236 286 ' on whether the physical address is the UNA hardware address 
; 59 58 ! or the hiord (node address with DEC NI address space constant) 
; ge tt } address. 
; 38 Bene mon_get circ_search2_key (key, length, address); 
; 59 591 nfb-(nfB$l_srch2_key] = key: 
; 598 8238 mom$build_p2 ( .mom$gq_entity_buf_dsc 9}. 
; 599 059 sponSog ont ty but _ds¢ 1J, 
; 600 0594 length, .address, 
; 601 0895 ie mom$q_p2_buf_dsc, p2_dsc); 
: 60 O897 ; 
3 o0e B208 Cmom$c node): 
: 606 9600 nfb Cnfb$l_srch_key] = nfb$c_ndi_add; 
; 607 01 mom$build_p2 ( 0 
3 ons 860s . {.mom$qq_ent ity_buf_dsc C13)<0,16>, 
; 610 0604 tee, mom$q_p2_buf_dsc, p2_dsc); 
; 61g 06 ; 
5 oi7 se 4 CmonS< nodebynane): 
; 615 0609 nfb nfb$t_srch_key] = nfb$c_ndi_nna; 
3 616 0610 mom$build_p2 ( ~.mom$gq_entify_buf_dsc fl. 
3 ei, bel) -mom$gq_entity_buf_dsc (1], 
: 619 b618 mom$q_p2_buf_dsc, p2_dsc); 
: i i 
; 6 é 616 . 
; ¢ 1 Cnfb$c_db_plid: 
: 624 618 BEGIN 
3 ° 5 Y? nfb Cnfb$l_srch_key] = nfb$c_pli_nam; 
: 6 $ 1 i If the service circuit for the target node is multidrop 4 DMP-0.1), 
: 628 ¢ ' the corteqqenstae Line name will include the period and tributary 
; 629 be ' number. If 40 efore using the circuit mame to access the ACPs Line 
; 6 4 i database, eliminate the period and tributary number from the end of the 
: ° 1 Oe 5 : circuit name to get the Line name. 
; i $ Ling ten -monsad service deta CevdSgk_pcno_sit. svd$b_string_len]; 
3 rio rs ¥ -CTine_len, 
; 635 %3 as - mom$ab_service_data Csvd$gk_pcno_sli, svd$t_string], 
i 
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5 
ls 1b-5e p-1984 9g: 
t.voldb_data Get ‘sata from volatile data 1 236718 4 


ervice routines :08: 
244: 


ee 


= ae 
IF wor CHSFAIL (. period ptr) THEN 
Line_len = period. ptr - mom$ab_service_data CoydSox.. cng. sli, 
svd$t_string 


mom$bui ld =p2 (,Line_len 
om$ab_ sirvice data Csvd$gk_pcno_sli, svd$t_string], 


noms 2_buf_dsc, p2_dsc); 
END: q_p our, p 


TES; 
1 
! Step through the Service Data Table to find all parameters in the requssted 
' database. Move these parameter's field IDs into the NFB so that NETACP 
will return their values in the P4 buffer. 
INCR svd_index FROM 0 TO svd$c entry_count 00 

BEGIN 


IF .mom$ab_service_data [.svd_index, svd$b_nfb_database] 
EQL .database THEN 


BEG 
nie Cnfb$l_fidid] = .mom$ab_service_data C.svd_index, svd$l_nfb_id]; 
END; 
END: 
nfb Cnfb$i_fldid) = 0; 


nfbdsc £0} = nfb Entpsi.. fidid] + 4 - nfb_buffer; 
nfbdsc [1 = nfb_buffer; 


i If there is an entry in the volatile data base then NETACP will return the 
data requested in the NFB. Return this data to the calling routine. 


STATUS = mom$netacp_qio (nfbdsc, 


pe_ 
4~ buf “dsc £03. 
°c. buf_dsc); 


IF NOT .status THEN 
BEGIN 


mom$bld_reply (mom$ab_msgblock, msgsize); 
$s ignal- “msg (mom$ab_nice_xmit_buf, .msgsize); 


RETURN .status; 
END; ! of mom$get_voldb_data 


.ENTRY MOMSGET_VOLDB_DATA, Save R2,R3,R4,R5,R6 : 
MOVAB roce( SN, gp _BUF_BSC, R6 


ee moereved a a: $e 9000 
(SP) 0, #512, NFB_BUFFER 


0 aoe 
00 3 0000E movC 


a2 


vOe=006 


04 

00000000v 

98 

04 

04 

04 
00000000* 00 
53 
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ep 
AS 


02 
50 000000006 
02 


oc 


A2 02020044 


08 
10 


0 

ad 08 
08 
10 


A2 02010012 
F8 


7E 
50 000000006 
7E 


01 
A2 02020043 
F8 


7E 
7E 000000006 


50 00000000* 
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Or1OBe SSieesd? — DERKSMEMASTERSEMOM SRCIMOMSUBS.832:1°%° (95 


NFB_BUFFER, NFB ; 
#34, (NFB) 3 
DATABASE, R4 : 
R4, 2(NFB) ; 
#1. 8(NFB) F 
12 (NFB) : 
ae’ v 3 
MOMSGB ENTITY CODE, RO : 
RO. a g 
#33685572, 4 (NFB) ; 
LENGTH : 
KEY : 
#3, MOM_GET_CIRC_SEARCH2_KEY : 
KEY 8 (NFB) : 
Pe _bs¢ : 
ADDRESS ; 
pai 3 
$ PF 
RO 3 
2$ 3 
433619986, 4(NFB) : 
P2_DSC ; 
#1, -(SP) : 
MOMSGQ_ENTITY_BUF_DSC+4, RO : 
(RO), =(SP) : 
-(SP5 : 
7$ 3 
RO, #1 : 
#33685571, 4(NFB) : 
P2_DSC : 
ni, =(SP) : 
MOMSGQ_ENTITY_BUF _DSC. -(SP) ; 
Rs, rh} : 
#84017217, 4(NFB) : 


<<MOMSAB_ SERVICE _DATA+<SVDSGK_PCNO_SL1*137>-: 


>+8>, LIRE_L 
#46, LINE CEN, <<MOMSAB_SERVICE_DATA+- 


< 
<gvbsGxPCNO_SLI*1 7>>+9> 
R1 
PERIOD_PTR 
S<MOMSAB_SERVICE_DATA*<SVDSGK_PCNO_SL1*137>~ 
>+9>, R 
RO, PERIOD_PTR, LINE_LEN 
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0607 
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0619 
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0629 


0631 
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3; Routine Size: 
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FB AD 


8 
00000000* 00 


3 
6 
5 
50 00000089 8F 
08 0 
0000000060041 
A 9E 
5 oe 
50 000000006 8F 
10 A2 
50 10 A 
32 5 
AD 14 =A 
AD 10 AE 
08 AC 
os AC 
F AD 
yee 
59 P) 
26 5 
oC ar 
000000006 0 
00 02 
OC AE 
000000006 00 
02070000 F 
00 3 
50 2 
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SCODES + 0304 


X-11 BLi 
KSVMSMA 
P2_DSC 

R6- 


= (SP) 
#1, 


$BUI 
SVD_INDEX™ 
i, SVD_ INDEX 


8, MOMSAB_ SERVICE _DATA+3ER1], R4 
nOR $AB_SERVICE_DATACR1] 


O(SP)s. 16(NFBY 


#4, 
Asis ENTRY_COUNT, SVD_INDEX, 9$ 


NFB_BUFFER, RO 
20{Re) NFBDSC 


RO, |S! 11$ 
a é 


$12 
MOMSAB_MSGBLOCK 
#2, MOMSBLD_REPL 
MSGSIZE 


SAB _NICE_XMIT_BUF 
petnegam. 


#3, LIBSSIGNAL 
STATUS, RO 


= CMO. OSRCSMOMSUBS .832:1 31 


(SP) 
<<HOMSAB_ SERVICE_DATA+<SVD$GK_PCNO_SL1*137>-; 


B_BUFFER, NFBDSC+4 
DSC 


Pe Se Se Se Se Se Ge Se Ge Ge Se Be Se Ge Se Ge Ge Ge Be Fe Se Ge Be Be Ge Ge Se Fe Fe Fe Fe Fe Fe Ge Se Se Ge Se 


' 
Build a P2 buffer that uses the NI hardware address (the entire 


node 


( 
physical address) to find the target's entry in NETACP's 
: database. 


BEGIN 
Key = nfb$c_ndi_hwa; 
length = 6; 
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yoes008 mon, get_circ, search wkey 12-8001 984 95:08:45 DLSKSVMSMASTERS CMON: SRCSMOMSUBS .B32;1 B 
3 5 8 1 ZSBTTL ‘mom get.circ.search2 key’ | 
; ? 244 ! GLOBAL ROUTINE fiom_gét_circ_Search2_key (key, length, address) : NOVALUE = | 
P 681 1 !44 
: ¢ 1 ! FUNCTIONAL DESCRIPTION: 
3 ¢ 6 1! This routine is called when preparing to get service data for 
; 691 684 1! the target from the volatile database. At this point the entity 
; 69 685 1! is glues MOMSC_CIRCUIT, and the operation is a TRIGGER VIA, a 
; +69 1! LOAD VIA, or aufoservice. In these three cases, there is no node 
> 694 rt 1! ID with which to locate the terget in the node volatile database. 
; 695 6 : ef For point to point circuits, it is sufficient to look for a node 
; 628 ret 1: with a service circuit matching the one from the command. for 
; 6 1} NI circuits, this routine sets up the second search key to match 
; 698 691 1! in the database. 
3 344 0692 1! 
; 700 0695 1 ! FORMAL PARAMETERS: 
: 701 0694 1! KEY Address to return search key two ID 
; 70 0695 1! LENGTH Address to return s~arch key two length 
; 70 0696 1! ADDRESS Address to return search key two address. 
; 704 0697 1! 
; 705 0698 1 !-- 
; 706 0699 1 
: 707 0700 BEGIN 
; 708 44 
3; 709 7 ¢ LOCAL 
; 7 070 physicat_addr_ptr; 
3; rv 0704 
3 re 0705 } 
3; 0706 ! At this point the NICE ef (operservice) or initial MOP message (auto- 
: 714 0707 ! service) has been parsed, and the only parameters in the Service Data table 
3; 715 0708 i are from this message. fherefore, the presence of the NI cha address 
3 rig to +4 in the SVD is an indication that the service circuit is an NI. 
; oe 148 IF -mom$ab_service_data Csvd$gk_pcno_pha, svd$v_msg_param] THEN 
3s te 6718 ! If the Physical Address begins with the DEC assigned NI prefix, then 
: ee) 0714 ! the last word of the Physical Address is the target node's address. 
, £ § 0715 : Extract it an use it as the second search key to find the target in 
: oS? boi8 } the volatile database (it would actually be sufficient by itself). 
3 res 0718 BEGIN : 
; 726 0719 physical eddr ptr = mom$ab_service_data Esvd$gk pcno.pha, svd$t_string); 
; ost of » ; F “spe Sical_addr_ptr EQL mom$k_ni_prefix THEN 
; 723 7 § 4 key = nfb$c_ndi_add; 
3; 730 87 4 length = 0; 
3 4} g ¢ ? goncrece = .(.physical_addr_ptr + 4)<0,16>; 
3 Fag 7 8 ELSE 
: ose 7 
3; 735 728 
; 736 729 
, 7 730 
mm. 731 
; £ 7 § 4 
s 7£ 7 4 
> a 734 4 
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; 74 735 .address = .physical_addr_ptr; 
: te i é gage = .physical_addr_ptr 
3 746 7 END 
: ee 3 ELSE | 
: 7% 740 i The circuit is point- to-point or multipoint. The service circuit 
: rs ree } IDs in the node volatile database must be unique for these. 
: 750 74 BEGIN 
s 751 744 key = nfb$c_wildcard; 
: F ¢ 745 elength = <1; 
2 74 .address = 0; 
3; 754 74 END; 
3 735 0748 END; ! End of mom_get_circ_search2_key 
0000 00000 -ENTRY MOM _GET_CIRC_SEARCH2_KEY, Save nothin ; 0679 
32 00000000* 00 €9 00002 BLBC << SERVICE _DATA+<SVD$GK _PCNO_PHA®137>=; 0711 
50 00000000* 00 9€ 00009 MOVAB <cpomsas SERVICE E> amen, PUNO _PHAt137>=: 0719 
000400AA_ = BFF $0 } 60010 aa <PHYSICAL -ADDR_PTR)> #262314 : 0720 
04 BC 02010012 8F DO 00019 MOVL §§ #33619986, @KEY : 072 
08 BC Be 00021 CLRL @LENGTH 3; 072 
oc BC 04 AO 8s 009 3 aa 4(PHYSICAL_ADDR_PTR), @ADDRESS 3 3753 
04 BC 02020057 8F DO OO002ZA 1$: MOVL #33685591, aKEY : o7¢8 
08 BC 96 DO 00032 MOVL #6, @LeE : 0734 
oc BC 50 DO 00036 MOVL §PHYSICAL_ADDR_PTR, @ADDRESS : 0735 
04 0003A RET 3; 0711 
04 «BC 01 DO 0003B 2$: MOVL #1, @KEY : 0744 
08 BC 01 CE 0005F MNEGL #1, @LENGTH 3; 0745 
0c BC D4 00043 CLRL @ADDRESS : 0746 
04 00046 RET ; 0748 


3; Routine Size: 71 bytes, Routine Base: S$CODE$ + 047D 


spsfotdmserds Bulle nee mode running message 16-30-1984 93: 9: 7 Be KSVMGMAS TERS CMON SRC MOMSUBS .B32; ? oe $f 


: 757 7 1 ZSBTTL ‘mom$bldmoprds Build MOP mode tg te message' 
: f f } GLOBAL ROUTINE mom$bldmoprds (msgdsc) : NOVALUE = 

BS 752 1 !4¢ 

: 42 f ? : FUNCTIONAL DESCRIPTION: 

: reg 755 1 This routine builds a "MOP Request Dump Service’ message in the 
3 ree £ ° ! MOP transmit buffer. 

: 72 758 1 | FORMAL PARAMETERS: 

: ie ie ee sas 

; 76 ret 1 i 

; 770 762 1 i- 

: OF) ee 

; og 765 

; 774 76 MAP 

: Ae 4 4 msgdsc : REF VECTOR; 

: aks 344 Move the "MOP request dump service’ function code into the buffer. 
: 9 aA CHSWCHAR (mop$_fct_rds, mom$ab_mop_xmit_buf); 

: 781 077 i Set up the descriptor for the return. 

3; 7 0774 i 

; 78 348 msgdsc £0} = 1; 

3; 784 ae msgdsc [1] = mom$ab_mop_xmit_buf; 

3; 785 077 

3; 786 0778 1 END; ! End of MOMSBLDMOPRDS 


0004 00000 .ENTRY MOMSBLDMOPRDS, Save R2 : 0750 
52 000000006 00 3 0002 MOVAB MOMSAB_MOP_XMIT_BUF, R2 : 
6 0C 906 00009 MOVB #12, MOM SAB _MOP~XM1T_BUF : 0771 
5 AC 00 0000¢ MOVL mSGbs¢ RO ~ : 0775 
60 01 00 90019 MOVL #1, : 
04 AO 62 9E 00013 MOVAB MOMSAB_MOP_XMIT_BUF, 4(RO) : 0776 
04 00017 RET : 0778 


3; Routine Size: 24 bytes, Routine Base: S$CODE$S + 04C4 
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0779 1 XSBTTL ‘mom$bldmopboot Build enter MOP mode message’ 
ORS : GLOBAL ROUTINE mom$bldmopboot (msgdsc) : NOVALUE = 
0782 1 !+4 
A} ! FUNCTIONAL DESCRIPTION: 
0785 1! This routine builds the 'Boot' (trigger) message in the 

b788 : MOP transmit buffer. This is the old ‘Enter MOP Mode’ message. 
0788 ! FORMAL PARAMETERS: 
0790 1: MSGDSC 
0791 1! 
grag | Io 
tay: BEGIN 
$798 MAP 
fad 4 § msgdsc : REF VECTOR; 
0799 2 LOCAL 
0800 2 db_passwd_len, 
080) § msg_passwd_len, 

r, 

080 status; 
0803 3 | 
tty 2 Build the ‘Boot’ message. 
0808 : ptr = mom$ab_mop_xmit_buf; 
+44 § CHSWCHAR_A (mop$_fct_emm, ptr); 
0811 2 | Move the service password from the Service Data base to the MOP message. 
oats 2! If no password is set then zeros will be used. The MOP trigger password 
Bata § is always four bytes for point to point and 8 bytes for NI. 
0815 2 db_passwd_len = -mom$ab_service_data Csvd$gk_pcno_spa, svd$b_string_lenj; 
0816 2 msg_passwd_len = .db_paSswd_len; 
0817 2 IF <mom$gl"service_flags [mom$v_ni_circ] THEN 
0818 2 msg_passwd_len = 8 
0819 ELS 
0820 msg pesoud len = 4; 
0821 ptr = CASCOPY T.db_passwd_len, : 
bess mom$ab_service_data Csvd$gk_pcno_spa, svd$t_string), 
OB5a + »MSG_passwd_len, .ptr); 
0825 i The MOP V2.1 Boot message has an 8 byte password (the old version has a 
bB5$ 4 byte one) and some extra fields. Add those extra fields. 
0828 2 IF msg passwd_len GTR 4 THEN 

th BEGT : 

830 IF -ponsal. service_flags Cmom$v_console_carrier_load] THEN 

te TO aes HAR_A (mop$c_pro_com, ptr) ! Load communications processor 
O834 CHSWCHAR_A (mop$c ro-sys. ptr);. ! Load system processor 
te IF -mom$gb_ function EGL nma$Sc_fnc_tri THEN 


et 


See Se Se Ge Se Se Se Se Se Se FHSS Se Oe Se Se FHSS Se Se ee 
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Spe fal service routines 15-90 -Sep-1984 VAX-11 Bliss-32 V 
om$bLdmopboot Build erter MOP mode message 12: ~Sep-1984 2 93:23 DISK KSUMGR TER: cmon. she MOMSUBS .B32; ? 
$ ' Control: Boot server = system default 

: oot device = system default 
§ seme (0, ptr) 

ge ps 

te For load triggers, tell the carers to request the load from this 

0 re! i system (as opposed to multicast ng the load request). 

084 i Control: Boot server = requesting system 

0844 i Boot device = system default 

0845 CHSWCHAR_A (1, ptr); 

Bi 

46 i Software ID - always boot for operatin system. I don't see any wa 

+ e4 for me to tell if {i ‘m loading diegnost ch er not. rai 

0851 3 CHSWCHAR A (+1, ptr); 

pe2¢ END; 

085 

Oaee | Set up the descriptor for the return. 

0856 ey 9 = .ptr - mom$ab Test xmit buf; 

poet $ msgdsc = mom$ab _mop_xmit_buf 

0859 1 END; ! End of mom$bldmopboot 

01FC 00000 Pat MOMSBLDMOPBOOT, Save R2,R3,R4,R5,R6,R7,R8 
58 00000000G 09 9E 00002 OVAB MOMSGL way ICE-FLAGS, RB 
57 000000006 00 9E 00009 MOVAB MOMSAB-M P_XMIT_BUF, R7 
53 67 9E 00010 MOVAB MOMSAB— MOP” ~XMITIBUF, PTR 
83 06 90 000135 MOVB #6, (PTR)+~ 
50 00000000* 00 9A 00016 MOVZBL <<ROMSAB_ PASSUD, DATA+<SVD$GK_PCNO_SPA*137>- 
56 50 00 0001D MOVL DB_PASSWB_LEN, MASG_PASSWD_LEN 
05 68 01 £1 00020 BBC #17 MORSGC SERVICE FLAGS, 1$ 
56 88 DO 00024 MOVL #8. MSG_PASSWD_LEN 
3 11 00027 BRB 2$ 
56 04 00 44 9 1$ MOVL #4, MSG_PASSWD_LEN 
00 00000000* 00 29 2C 0002C 2$ MOVCS DB_PASSQ@D_LEN, <<MOMSAB_SERVICE_DATA+- 
6 00035 resck PTNO SpA#1373>+93, #0, - 
MSG PASSWD _LEN, (PTR 
04 56 D1 00036 CMPL MSG_ -passuD= “LEN, #4 
22 15 st BLEQ 7 
05 68 06 4 0038 BBC #6, MOMSGL_SERVICE_FLAGS, 3$ 
63 01 90 oboz. MOVB #1, (PTR) 
0 11 00042 BRB 
6 94 00044 3$: CLRB (PTR) 
3 6 Bees 4%: INCL PTR 
11 000000006 00 91 0004 CMPB MOMSGB_FUNCTION, #17 
04 i; OO4F BNEQ 
83 9 Ope CLRB (PTR) 
11 0005 BRB 
63 1 90 ope 5$: MOVB #i, (PTR) 
3 D6 00058 6$: INCL PTR 
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specie Maas But Py MOP mode message 1B-800-1984 95:08:45 ST EKSVMGMAS Teas chon She SMOMSUBS. B32; 42% (185 


3 01 3 005 MNEGB #1, (PTR)+ : 0851 
04 AC p D 7$: MOVL  MSGDSC, RO ; 0856 
1 ‘ : 0061 MOV MOMSAB_MOP_XMIT_BUF, R1 : 
60 53 1 C3 00064 SUBL3 1, PTR, (R : 
04 Ad 67 9E 000 MOVAB MOMSAB_MOP_XMIT_BUF, 4(RO) ; 0857 
04 0006C RET ; 0859 


; Routine Size: 109 bytes, Routine Base: S$CODE$ + 04DC 


Output the MOP message to the debug log. 


nentdebup txt (apgSc srytre. . 
SASCID ("Transmitting empty memory load with transfer address.') 


DOODOOOWOODOOOOVOOVOOOO 


Moronoforonys 


Qui kwn—-OO0Onou 


END 


16 
mnsues Special service routines 16-Sep-1984 9g 08:45 VAX-11 Bliss-32 V4.0-74 Page 30 
v04-000 mom$bidmopplt Build MOP Parameter Load with T 14-Sep-1984 2:44:37 DISKSVMSMASTER: CMOM. SRC JMOMSUBS .B832; 1 (11) 
; 870 860 1 XZSBTTL 'mom$bldmoppit Build MOP Parameter Load with Transfer Address message’ 
: 871 861 1 GLOBAL ROUTINE mom$bldmopplt (plt_msg_dsc, Loed sen num, 
; i aoe 1 transfef_addr) : NOVALUE = 
; 87 0865 1 
; 874 864 1 !++ 
; 875 865 1 ! FUNCTIONAL DESCRIPTION: 
; 7g se8 1: This routine is called to build the MOP Parameter Load with 
; 87 0867 1! Transfer message which is sent to the target node at the end of 
; 878 0868 1! a down Line load. 
; 879 0869 1! 
; 880 0870 1 ! FORMAL PARAMETERS: : 
H +t $37) 1! PLT_MSG_DSC = Descriptor of buffer for MOP Parameter Load with 
3 f ie 1! Transfer message. 
; 88 0873 1! LOAD SEG_NUM = Number of load segments loaded modulo 25¢. 
3 He ete } TRANSFER_ADDR = Address to start executing image just luvaded. 
; 886 pers 1 ! IMPLICIT OUTPUTS: 
; 887 0877 1! 
; 888 0878 1 ! ROUTINE VALUE: 
; 889 0879 1 ! COMPLETION CODES: 
; 890 0880 1 !-- 
; 891 0881 1 
; 89 088 BEGIN 
3; F 088 
; 894 0884 MAP 
3 899 0885 es msg_dsc : REF VECTOR, 
3 0886 oad_seg_num: BYTE; 
; 7? 0887 
; 898 0888 LOCAL 
; 899 0889 Len, 
3 0890 ptr, 
SE dD | 0891 node_addr: WORD 
: 68 089 datetime : VECTOR (7, WORD), 
; 90 089 century, 
; 904 0894 year; 
; 905 0895 
: 906 0896 ’ ; 
; 907 0897 ! If the load file was a bootstrap then send an empty memory load with 
; a3 pa0e : transfer address message. 
: 910 0900 IF .mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] NEQU nma$c_soft_osys THEN 
; i} 939) BEGIN 
3 18 0304 ptr = mom$ab_mop_xmit_buf; 
; 91 905 CHSWCHAR_A (mop$_fct_mlt, ptr); ' Function code 
> 91 0906 CHSWCHAR-A (. Load_seG_num, ptr; i Load segment number 
; 090 (.PTR)<0,32> = 0; ' Zero load address 
3 ; ptr = .ptr + 4; ! Skip load address 
; Fe 


F 16 
ve Special service routines 19~3007 138% 96:08:46 VAX-11 Bliss-32 Pet 6 Page 31 
Vv 14-Sep-1984 44:37 DISKSVMSMASTER: CMOM. SRC JMOMSUBS .832; 1 (17) 


-0 mom$bidmoppit Build MOP Parameter Load with T 14- 

927 917 ELSE 

sh BIBS, ci 

930 920 ! The load file was the system image so send a parameter load with transfer 
1 2 1 address message. 

% ¢ 03 ‘ tr = mousey op .uait. puts 

] 924 HSWCHAR_A (mop$_fct_plt, ptr); ! Function code 

5 44 5 CHSWCHAR_A (.load_seg_num, ptr; ! Load segment number 

84 ; If target node name specified then add it to message. 

939 09 % Len = .mom$ab_service_data [svd$gk_pcno_nna, svd$b_string_lenj; 

940 0930 IF .len NEQ 0 THEN 

941 0931 4 BEGIN 

94 09 ¢ & CHSWCHAR_A (mop$c_par_nna, ptr); ' Parameter code 

94 09 4 CHSWCHAR_A (.Len, ptr); ' Name Length 

944 0934 4 PTR = CHSMOVE (.[en, i Name 
945 0935 4 momoab_service_data Csvd$gk_pcno_nna, svdit_string], 
946 0936 4 -ptr); 

947 0937 3 END; 

948 0938 3! 

949 0939 ! Add target node address to message. If address not specified then 

eee Baeo program error. 

326 Boe$ ; CHSWCHAR_A (mopSc _par_nad, ptr); ! Parameter code 

95 094 CHSWCHAR_A (2, ptr); ' Address Length 

eee baee 3 node_addr = .mom$ab_service_data [svd$gk_pcno_add, svd$l_param]; 

956 0946 : ! If it's a phase III node, mask out the area number in the node address. 
et 39h 4 ; DECnet Phase III did not include areas. 

959 0949 IF_.mom$ab_service_data Csvd$gk_pcno_snv, svd$l_param] EQL oma$c_nodsnv_ph3 
960 0950 3 THEN 

961 0951 4 BEGIN 

962 3444 4 MAP node_addr: BBLOCK; 

963 0953 4 node_addr Cnma$v_areal = 0; 

964 0954 END; 

965 0955 ptr = CHSMOVE (2, node_addr, .ptr); 

966 0956 

967 0957 ! 

aoe 3434 : If the host node name is specified then add it to the message. 

970 2200 len = .mom$ab_service_data [svd$gk_pcno_$hna, svd$b_string_len]; 

971 961 IF .len NEQ QO THEN 

4 B206 4 BEGIN 

97 0965 4 CHSWO"AR_A (mop$c_par_hna, ptr); ! Parameter code 

974 0964 4 CHSWCHAR_A (.Len, ! Name Length 

975 0965 4 pti 

976 0966 4 PTR = CHSMOVE (.len, ! Name 
97 0967 4 mom$ab_service_data [svd$gk_pcno_$hna, svd$t_string], 
978 0968 4 -ptr); 

979 0 END; 

980 970 : : : 

+} 448 : If the host address is specified then add it to the message. 

388 0978 IF .mom$ab_service_data Csvd$gk_pcno_iho, svd$l_param] NEQ 0 THEN 


16 “11 Bliss-32 V4.0-74 Page 32 
ease T8Re 9808 Ss Ne kdWAAS fens chonCsacSmomsues.032:10%° «195 
reser ysc® cove ines 1382 93 :8b ss Pee WBAAS Fea ica 
yO42000 soso ldansolt Build MOP Parameter Load with T 14-Sep 
oe ot rat ty d3 ! Parameter code 
3 2 +t ae EHEUCHAR A (3oPscpar_had, a ! Address Length a seceaii 
; 3 t aes addr = -mom$ab_service_data Csvd$gk_pcno_iho, svd$l_p ; 
338 3f8 ¢ If it's a phase III node, mask out the area number in the node address. 
: : . svd$l_param]) EQL 
; 30 381 d IF .mom$ab_service_data rect gpk Rtg 
338 388 aie Node addr: BBLOCK; 
; 398 388 5 node_addr (Cnma$v_aread = 0; 
; 999 38 d tr = CHSMOVE (2, node_addr, .ptr); 
: 38 0988 BND; 
1999 $99" If it's not a phase III node, add the system time to the message 
. : j am] NEQ 
; 1908 $99 IF .mom$ab_service_data Te tot ae fn 
: 1008 b998 4 BEGIN ‘ 
: 1008 0996 4 CHSWCHAR_A (mop$c_par_hti, ptr); 
: }o09 0997 4 CHSWCHAR_A (10, ptr); ; 
; 1908 0998 4 SNUMTIM TTIMBUF = date_time); . 
; he year be 
: 188 9800 d with transfer message requires that t 
; 191% 1904 d A mapegy Ay ag heat and a year. Bo that. 
; 191 1008 : -date_time (0) /100; 
AE RE $cumwr gens 88 a 
; ie, i ing required in the MOP Parameter Load w 
; 1946 1907 tre star ecbane to tx tae ecae eee as that returned by coktae une andl 
; 1918 1908 é i Rete doe my Put the string into the MOP message, conve 
: 1919 1090 ? to bytes. 
: 1988 c AR_A (.century, ptr); 
132 BE URSA. f-senrurg, 8 
: 1098 1g ¢ NCR i FROM i-TO 6 DO 2 
: 1992 1914 4 CHSWCHAR_A (.date_time C.iJ], ptr); eae 
; 1983 ie i FILL im the Time Differential Factor hours and ote way And BP. BY 
: 1999 1917 ‘ doesn't keep Greenwich Mean Time around for fig 9 
: 18 8 1019 4 — CHSFILL (0, 2, .ptr); 
: 10 1020 ND; 
> 1031 19 1 
: 1938 10 : i add the end mark. 
. i 
; 1938 19 3 CHSWCHAR_A (0, ptr); 
: 1037 19 4 : Output the trace message. 
: 18 ; tre, ? 
: 1920 i ; 4 aaabbades Std aa ist tthe parameter load with transfer address 


H 16 
vie Special service routines 19° 3007138) 9g 08:46 VAX-11 Bi ieee 32 V 33 
mom$bldmopplt Build MOP Parameter Load with T 14-Sep-1984 12:44:37 DISKSVMSMASTER: chon” She MOMSUBS .832; ? aah bi 
: 198) 1031 ); 
3; 7 1 
H 1948 ’ § END; 
: 1945 10 5 ! Add transfer address. 
: ier 18 $ ptr = CHSMOVE (4, transfer_addr, .ptr); 
: ep 1036 Send the message. 
: 1051 1041 ptt _™sg_dsc at = .ptr - mom$ab me xmit _buf; 
3 1938 1006 pit: timsg_ “dsc = mom$ab _mop_ an 
3; 105 104 “End” of MOMSBLDMOPPLT 


«PSECT SPLITS,NOWRT ,NOEXE,2 


6D 65 20 67 6€ 69 74 74 69 6D 73 6E€ 61 72 54 00018 P.AAE: .ASCII \Transmitting empty memory load with tran\ ; 
61 6F 6C 20 79 72 6F 6D 65 6D 20 79 74 70 900¢7 : 
6— 61 72 74 20 68 74 69 77 20 00036 : 
2 73 73 65 72 64 64 61 20 72 65 66 i 944 otf gore address.\ r 
80090000" goos4 A “tM 6s °D AAE : 
61 70 20 67 6€ 69 74 74 69 6D 73 6E 61 8 54 00058 P.AAG: ASCII \Transmitting parameter load with transfe\ : 
69 77 20 64 61 6F 6C 20 72 65 74 65 6D 61 72 00067 : 
65 6 3 6E 61 72 74 20 68 74 90076 : 
2E 73 73 65 72 64 64 61 20 72 494 oe \r address.\ 5 
00000032 O008C P.AAF: <LONG 50 : 
00000000 00090 .ADDRESS P.AAG : 
.EXTRN SYSSNUMTIM 
-PSECT S$CODES,NOWRT,2 
07FC 00000 ENTRY MOMSBL DMOPPLT Save R2,R3,R4,R5,R6,R7.R8,- ; 0861) 
5A 000000006 00 9 9000 OVA MORSAB MOP_XMIT_BUF, R10 F 
af 6A SE 0000C MOVAB MOM$AB_MOP_XMIT_BUF > 0903. 
02 00000000* 00 01 O000F CMPL <<HOMSAS SERVICE_ UAT AeceVDSGK -PCNO_STY#137>=; 0900 | 
111 1 Q : 
BS 9h OO0I8 eFRB SS OPTR)S 9905. 
83 08 AC 90 O001A MOVB = LOAD_SEG_NUM, (PTR)+ : 0906 
4 OolE CLRL (PTRI+ : 0907 | 
oat < i PUSKAB BAAD : o3t 
14 0 000 § 1$: MOVB 20, (PTR)+ > 0924 
83 08 90 0002C MOVB — LOAD_SEG_NUM, ; 09 5 
6 00000000 9A 000 MOVZBL <<MOASABESERV vIce TOATAS<SVDSGK -PCNO_NNA®137>=; 9 
—E 13 00037 BEQL 28 - > 0930 | 
83 1 9 4 9 MOVB #1, (PTR)+ ; 09 é 
6 9 ¢ MOVB LEN, (PTR)+ : 09 


16 
S Spe jal service routine 14-98 -1984 VAX-11 Bliss-32 V 4) 
He tit bomb Ldmopplt Build MOP Parameter Load with T 12780871382 95:08 $3 DISKSVMSMASTER: chon OAC IMOMSUBS. B32: om 0995 
63 00000000* 00 56 28 0003F movc3 sD sao rae DATA+<SVD$GK_PCNO_NNA=; 0936 
0 F BO 00047 2$: MOVW 514, 094 
83 n000neede tf 88 tare MOVW <<HOASAB SERVICE, DATA+<SVD$GK_PCNO_ADD*137>-; ths 
58 00000000* 00 00 00053 MOVL <<RORSAB SERVICE_DATA+<SVD$GK_PCNO _SNV#137>=! 0949 
9 D4 OO0SA CLRL : 
33 D5 88 5c TSTL RB : 
Q 12 3 BNEQ 33 : 
9 D6 0006 INCL : 
57 FCOO i Ab 0060 BICW2 Fe4512 NODE ADDR + 0953) 
a 7 BO 00067 3s: MOVW NODE AD : 0955 | 
56 00000000" 00 9A O006A MOVZBL <<HORSAB. senvice DATA+<SVD$GK_PCNO_SHNA®t= ; 0960. 
Of 13 00071 BEQL 86 4$ > 0961 | 
83 03 90 00073 MOVE #3, (PTR)+ + 0963 
8 56 90 90076 MOVB LEN, (PTR)+ : 0965 | 
63 00000000* 00 56 28 0007 MOVC3 LEN, <<MOMSAB_SERVICE DATA+= + 0968 | 
<SVO$GK_PCNO_SHNA®1375>+9> : 
50 00000000* 00 pO 00081 4$: MOVL <<HOMSAB SERVICE ADATAS<SVDEGK. PPENO. 1HO*137>-: 0973 
13 13 00088 BEQL ; 
83 0204 8F B80 OOOBA MOVW #516, (PTR)+ : 0975. 
57 50 80 0008F MOVW RO, NODE_ADDR : 0977 
05 59 €9 0009 BLBC : 0981 
57 FCOO }§«=6BF_SCAA (0009 BICW2 #64512, NODE_ADDR : 0985 | 
83 57 80 9009A 5$: MOVW  NODE_ADDR, (PTR)+ : 0987 | 
58 D3 0090 6$: TSTL =RB : 0993 
3F 613 O009F BEQL 8S ; 
83 OA0S BF BO O00A1 MOVW #2565, (PTR) + > 0996 
7E D4 OO0A6 CLRL : 0998 
04 AE 9F 000A8 PUSHAB DATE. Tl ; 
000000006 00 02 FB OO0AB CALLS #2, SYSSNUMTI F 
51 6— 3C 00082 MOVZWL DATE_TIME, CENTURY > 1003 | 
51 00000064 8F C6 0008 DIVL2 #1007 CENTURY ; 
50 6— 3C 000BC MOVZWL DATE TIME, YEAR > 1004 | 
7E 00 50 01 7A O00BF EMUL #1, YEAR, #0, -(SP) ; 
50 50 BE 00000064 BF 7B O00C4 EDIV #100, (SP)+, YEAR, YEAR ’ 
8 1 90 000CD MOVE CENTURY, _(PfR)+ : 1011, 
83 50 90 99009 MOVB = YEAR, (PTR)+ : 1012 
50 01 p 00D MOVL = #1 > 1014 | 
83 6E40 0006 7$: CVTWB  DATE_TIMECIJ, (PTR)+ : | 
F8 50 0 F SODA AOBLEQ #6, T, 7$ F 
Ba DE CLRW (PTR) + : 1019. 
83 94 OO0EO 8S CLRB (PTR)« : 1025 
00000000" 00 9F O0E¢ PUSHAB P.AAF : 1030 
6 DD OO00ES 9S PUSHL 4: : 1029 | 
000000006 99 2 FB OOOEA CALLS #2, MOMSDEBUG_TXT ; 
8 Oc AC OD OOF} MOVL TRANSFER _ADDR> (PTR)+ + 1037 
0 06 AC OD OF> MOVL PLT MSG > 1041 
51 A 3 OOF MOV OMSAB_MOP XMIT_BUF, R1 ; 
60 53 1 § OOFC SUBL RT PTR, ( ; 
04 Ad 6A SE 9190 MOVAB ROMSAB _MOP_XMIT_BUF, 4(RO) F 
04 001 RET F 


; Routine Size: 261 bytes, Routine Base: S$CODE$ + 0549 


SOWNS 
SPLITS 
SCODES 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOMSUBS/OBJ=OBJ$:MOMSUBS MSRC$:MOMSUBS/UPDATE=(ENH$ : MOMSUBS ) 


Run Time: 
Elapsed Time: 
Lines/CPU Min 


COMMAND QUALIFIERS 


1614 G0! $.°9 + 316 data bytes 


Of; 12.0 
1801 


Lexenes/CPU-Rin: 15995 


Used: 


211 pages 


; ree A mi Complete 


ietieela goyta'n "" MOP Parameter Load with T 1b-te 300-1382 93: oF: 3 bts 


1044 1 
1045 1 END 
1 rk 1 
1047 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
168 NOVEC, WRT, RD ,NOEXE,NOSHK, 
NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
1614 NOVEC,NOWRT, RD , EXE,NOSHR, 
Library Statistics 
prea Syubelg qcoccene 
Total Loaded Percent 
MOM.OBJJMOMLIB.L32;1 194 49 25 
SHRLIBINMALTBRY <1 5231 887 14 1 
SHRLIBINET.L32;1 1279 22 1 
SYSLIBJSTARLET.L32;1 9776 3 0 


s-32_V 


~EXTRN LIBSSIGNAL 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
21 00:00.1 
47 ae 
63 00:00. 
581 00:03.2 


X-11 8 
KSVMSM TER: cH she MOMSUBS .B32; ? 


atthe 


A590 AH-BT13A-SE EQUIPMENT CORPORA 
Sw VAX/VMS V4.0 : NTIAL AND PROPRIET 


TION | 
ARY 


I 
R 


